www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModel\D_chk_ok_reg_model.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<htmL>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<!--#include file=../../inc/ND_class_function.asp-->
<!--#include file="modelsys_inc/D_model_class.asp"-->
<!--#include file=../../inc/new_md5.asp-->
<script src="../../inc/admin.js" type="text/javascript"></script>
<%
Server.ScriptTimeout=9999999
session.timeout=600
if qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if
set filea1=new Cls_FSO
set filea=new Cls_FSO
fla1="../../Model/Models/"&trim(request("mpath"))&"/"&iconfigfile
if filea.ReportFileStatus(server.mappath(fla1))=1 then
dddd1=loadfile(fla1)
call get_info_array_from_model_file_content(dddd1)
end if
modelname=nd1_model_name
biao_rnd_qianzhui="ND_U_"&left(md5(trim(modelname)),5)&"_"
function install_a_model()
model_folder_path=trim(request("mpath"))
zimodelxmlph="../../Model/Models/"&trim(request("mpath"))&"/"&iconfigbiaosfile
if filea1.ReportFileStatus(server.mappath(zimodelxmlph))=1 then
strXMLFile = Server.MapPath(zimodelxmlph)
oXMLDomg.Load(strXMLFile)
set nodeazz=oXMLDomg.documentElement.selectNodes("zimodels/zimodel")
lentaazz=nodeazz.length
for liiz=1 to lentaazz
namezzz=cstr(trim(nodeazz(liiz-1).selectSingleNode("name").text))
createTableSql="CREATE TABLE ["&biao_rnd_qianzhui&namezzz&"] ([id] int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,"
'----------------------
zimodelxmlph="../../Model/Models/"&model_folder_path&"/"&iconfigbiaosfile
strXMLFile = Server.MapPath(zimodelxmlph)
oXMLDomg.Load(strXMLFile)
set nodek=oXMLDomg.documentElement.selectSingleNode("zimodels/zimodel[name='"&namezzz&"']")
set nodea3=nodek.selectNodes("ziduans/ziduan")
lentaaa=nodea3.length
for lii=1 to lentaaa
zd_typex=cstr(trim(nodea3(lii-1).selectSingleNode("field_GUI_type").text))
cangsx=cstr(trim(nodea3(lii-1).selectSingleNode("field_GUI_cangshuos").text))
zdnamea=cstr(trim(nodea3(lii-1).selectSingleNode("field_name").text))
zdtypea=zd_typex
'分类表
if zd_typex="15" then
biaonameav=split(cangsx,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)
call exe_sqls(get_fenlei_biao_sql("["&biao_rnd_qianzhui&trim(biaonameav_1)&"]"))
end if
'专题表
if zd_typex="16" then
biaonameav=split(cangsx,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)
call exe_sqls(get_zhuanti_biao_sql("["&biao_rnd_qianzhui&trim(biaonameav_1)&"]"))
end if
'复选框配置表
if zd_typex="27" then
biaonameav=split(cangsx,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)
call exe_sqls(get_zhuanti_biao_sql("["&biao_rnd_qianzhui&trim(biaonameav_1)&"]"))
end if
'如果是多行多列输入框
'=============if 多行多列输入框======================
if zd_typex="24" then
biaonameav=split(cangsx,"|$aspcpu_f$|")
biaonameav_1=biaonameav(1)
biaonameav_1_p=split(biaonameav_1,"|$aspcpu_g$|")
if trim(biaonameav_1)="" then
pllentt=0
else
pllentt=ubound(biaonameav_1_p)+1
end if
for plniii=1 to pllentt
biaonameav_1_p_1=biaonameav_1_p(plniii-1)
biaonameav_1_p_1_p=split(biaonameav_1_p_1,"|$aspcpu_r1$|")
biaonameav_1_p_1_p_3=biaonameav_1_p_1_p(2)
pzd_typex=biaonameav_1_p_1_p_3
cangsx2=biaonameav_1_p_1_p(0)
'分类表
if pzd_typex="15" then
biaonameav=split(cangsx2,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)
call exe_sqls(get_fenlei_biao_sql("["&biao_rnd_qianzhui&trim(biaonameav_1)&"]"))
end if
'专题表
if pzd_typex="16" then
biaonameav=split(cangsx2,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)
call exe_sqls(get_zhuanti_biao_sql("["&biao_rnd_qianzhui&trim(biaonameav_1)&"]"))
end if
'复选框配置表
if pzd_typex="27" then
biaonameav=split(cangsx2,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)
call exe_sqls(get_zhuanti_biao_sql("["&biao_rnd_qianzhui&trim(biaonameav_1)&"]"))
end if
next
end if
'================end if多行多列输入框===================
'====================================================================
if zdtypea="1" then
createTableSql=createTableSql&zdnamea&" text,"
end if
if zdtypea="2" then
createTableSql=createTableSql&zdnamea&" varchar(80),"
end if
if zdtypea="3" then
createTableSql=createTableSql&zdnamea&" text,"
end if
if zdtypea="4" then
createTableSql=createTableSql&zdnamea&" varchar(200),"
end if
if zdtypea="5" then
createTableSql=createTableSql&zdnamea&" varchar(30),"
end if
if zdtypea="6" then
createTableSql=createTableSql&zdnamea&" varchar(30),"
end if
if zdtypea="7" then
createTableSql=createTableSql&zdnamea&" text,"
end if
if zdtypea="8" then
createTableSql=createTableSql&zdnamea&" text,"
end if
if zdtypea="9" then
createTableSql=createTableSql&zdnamea&" text,"
end if
if zdtypea="10" then
end if
if zdtypea="11" then
createTableSql=createTableSql&zdnamea&" text,"
end if
if zdtypea="12" then
createTableSql=createTableSql&zdnamea&" varchar(10),"
end if
if zdtypea="13" then
createTableSql=createTableSql&zdnamea&" varchar(70),"
end if
if zdtypea="14" then
createTableSql=createTableSql&zdnamea&" varchar(80),"
end if
if zdtypea="15" then
createTableSql=createTableSql&zdnamea&" varchar(50),"
end if
if zdtypea="16" then
createTableSql=createTableSql&zdnamea&" text,"
end if
if zdtypea="17" then
createTableSql=createTableSql&zdnamea&" varchar(20),"
end if
if zdtypea="18" then
createTableSql=createTableSql&zdnamea&" varchar(20),"
end if
if zdtypea="19" then
createTableSql=createTableSql&zdnamea&" varchar(20),"
end if
if zdtypea="20" then
createTableSql=createTableSql&zdnamea&" varchar(240),"
end if
if zdtypea="21" then
createTableSql=createTableSql&zdnamea&" text,"
end if
if zdtypea="22" then
createTableSql=createTableSql&zdnamea&" text,"
end if
if zdtypea="23" then
createTableSql=createTableSql&zdnamea&" text,"
end if
if zdtypea="24" then
createTableSql=createTableSql&zdnamea&" text,"
end if
if zdtypea="25" then
createTableSql=createTableSql&zdnamea&" varchar(80),"
end if
if zdtypea="26" then
createTableSql=createTableSql&zdnamea&" varchar(200),"
end if
if zdtypea="27" then
createTableSql=createTableSql&zdnamea&" text,"
end if
if zdtypea="28" then
createTableSql=createTableSql&zdnamea&" varchar(240),"
end if
if zdtypea="29" then
createTableSql=createTableSql&zdnamea&" text,"
end if
if zdtypea="30" then
createTableSql=createTableSql&zdnamea&" text,"
end if
if zdtypea="31" then
createTableSql=createTableSql&zdnamea&" varchar(200),"
end if
next
'去掉最后一个逗号
createTableSql=left(createTableSql,len(createTableSql)-1)
createTableSql=createTableSql&")"
call exe_sqls(createTableSql)
next
end if
set filea1=nothing
install_a_model=1
end function
%>
<%
if request("mbnmv")="" then
%>
<script language=javascript>
alert("请填写后台模型实例名!");
history.go(-1);
</script>
<%
else
if install_a_model()=1 then
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from ND_models_reg",conn,1,3
rs1.addnew
rs1("model_name")=trim(modelname)
rs1("houtai_menu_shili_name")=trim(request("mbnmv"))
rs1("model_folder_path_name")=trim(request("mpath"))
rs1("is_added_to_adminmenu")="1"
rs1("all_biao_rnd_qianzhui")="ND_U_"&left(md5(trim(modelname)),5)&"_"
rs1("is_copy")="0"
mmmidd=rs1("id")
rs1.update
call compile_a_model(mmmidd,"D_admin_models.asp")
%>
<%
else
%>
<script language=javascript>
alert("安装失败!");
</script>
<br><br><br><br>
<center>安装失败!<br>
</center>
<%
end if
end if
%>
</html>